*** Stata 15 reproduction code for

*Mader, Matthias & Harald Schoen.
*What a difference an event can make: The European refugee crisis, party competition, and voters’ responses in Germany
*West European Politics


*** Figure A3-2: Mean absolute immigration policy distance in groups differing in prior immigration attitude
**************************************************************************************************************

use "DATA_wide.dta", clear

	graph bar diff6_adist_cdu11, scheme(s1mono) ///
		over(immir7, label(labsize(large)) relabel(1 "1" 7 "7") gap(5)) 		///
		yscale(range(1 1)) ylabel(-1 (.25) 1, angle(0) labsize(large)) ytitle("Mean {&Delta} in absolute distance to the CDU...", size(large))  ///
		ysize(2.5) xsize(3)  /// scale(.8)
		b1title("...over immigration attitude", size(large)) ///
		title("CDU") name(bar_dist1, replace)
		
	graph bar diff6_adist_csu11, scheme(s1mono) ///
		over(immir7, label(labsize(large)) relabel(1 "1" 7 "7") gap(5)) 		///
		yscale(range(1 1)) ylabel(-1 (.25) 1, angle(0) labsize(large)) ytitle("Mean {&Delta} in absolute distance to the CSU...", size(large))  ///
		ysize(2.5) xsize(3)  /// scale(.8)
		b1title("...over immigration attitude", size(large)) ///
		title("CSU") name(bar_dist2, replace)
